Don't echo empty string in file-name-with-extension

* lisp/files.el (file-name-with-extension): Avoid echoing a filename
string known to be empty (bug#50149).

diff --git a/lisp/files.el b/lisp/files.el
index f0baa4fac6dd292d65d2bfaf14e89066e552dc5c..ba362827ee7875990996b49e1b5ac7473cab2d53 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -5033,7 +5033,7 @@ FILENAME has the format of a directory.
 See also `file-name-sans-extension'."
   (let ((extn (string-trim-left extension "[.]")))
     (cond ((string-empty-p filename)
-           (error "Empty filename: %s" filename))
+           (error "Empty filename"))
           ((string-empty-p extn)
            (error "Malformed extension: %s" extension))
           ((directory-name-p filename)